home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 209 / 209.d81 / european siren (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-01-01  |  584 b   |  20 lines
  1. 5 poke53280,.:poke53281,.
  2. 10 print"[147]         [154]press h [154]to hear the siren"
  3. 20 print"         press q [154]to quit"
  4. 30 a=peek(203):ifa=29then100
  5. 40 ifa<>62then30
  6. 45 d=peek(186):ifd<8thend=8
  7. 50 print"[147][144]load"chr$(34)"b.tips and trick"chr$(34)","d
  8. 60 print"run":poke631,13:poke632,13:poke198,2:end
  9. 100 rem european siren - michael gatto
  10. 110 n=5  :rem number of siren blasts
  11. 120 s=54272:v=s+24:ad=s+5:sr=s+6:w=s+4
  12. 130 poke v,15:poke ad,0:poke sr,240:poke w,33
  13. 140 for j=1 to n
  14. 150 poke s,52:poke s+1,43:for d=1 to 300:next
  15. 160 poke s,75:poke s+1,34:for d=1 to 300:next
  16. 170 next j
  17. 180 poke w,32:poke v,0
  18. 190 run
  19. 10000 d=peek(186):n$="european siren":open15,d,15,"s0:"+n$:close15:saven$,d:end
  20.